home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-01
/
wavepool.zip
/
MACHINE.WPL
< prev
next >
Wrap
Text File
|
1992-04-08
|
462b
|
27 lines
#
# MACHINE Wavepool program
#
# Copyright 1992, Data Assist, Inc.
#
BEGIN {
screate("machine.sou")
for (c=1; c<=20; ++c) {
print c
for (x=400; x>100; x=x-10) {
sinwave(x, 22);
quiet(5);
sinwave(x/2+37, 22);
quiet(5);
sinwave(x/3+37, 22);
quiet(5);
}
}
sclose(0)
sndvoc("machine.sou", "machine.voc");
}